home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / x68000.arc / SOURCE.ARC / SYMBOLTA.DEF < prev    next >
Encoding:
Modula Definition  |  1985-12-03  |  1.0 KB  |  31 lines
  1. DEFINITION MODULE SymbolTable;
  2. (* Initializes symbol table.  Maintains list of all labels, *)
  3. (* along with their values.  Provides access to the list.   *)
  4.  
  5.    FROM LongNumbers IMPORT
  6.       LONG;
  7.  
  8.    FROM Parser IMPORT
  9.       TOKEN;
  10.  
  11.  
  12.    EXPORT QUALIFIED
  13.       FillSymTab, SortSymTab, ReadSymTab, ListSymTab;
  14.  
  15.  
  16.    PROCEDURE FillSymTab (Label : TOKEN; Value : LONG; VAR Full : BOOLEAN);
  17.    (* Add a symbol to the table *)
  18.  
  19.    PROCEDURE SortSymTab (VAR NumSyms : CARDINAL);
  20.    (* Sort symbols into alphabetical order *)
  21.  
  22.    PROCEDURE ReadSymTab (Label : ARRAY OF CHAR; 
  23.                          VAR Value : LONG; VAR Duplicate : BOOLEAN) : BOOLEAN;
  24.    (* Passes Value of Label to calling program -- returns FALSE if the *)
  25.    (* Label is not defined.  Also checks for Multiply Defined Symbols  *)
  26.  
  27.    PROCEDURE ListSymTab (i : CARDINAL; VAR Label : TOKEN; VAR Value : LONG);
  28.    (* Returns the i-th item in the symbol table *)
  29.  
  30. END SymbolTable.
  31.